COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION X(14),Y(14),INK(14),IBUF(5000)
C00004 ENDMK
C⊗;
	DIMENSION X(14),Y(14),INK(14),IBUF(5000)
	DATA X/0.,.7,.7,.6,1.8,2.6,3.1,3.9,3.5,3.4,4.5,4.8,5.,5.3/,
	1 Y/0.,.5,.3,.1,.5,-.3,-.8,.5,.6,.8,1.1,.7,1.,1./
CC	1 INK/3,2,3,2,2,2,3,2,2,3,2,2,2,2/
	COMMON /FAC/JFAC,KFAC
	TYPE 1
	ACCEPT 2,JFAC,KFAC
	IF(JFAC.EQ.0)JFAC=150
	IF(KFAC.EQ.0)KFAC=150
1	FORMAT(' TYPE X FACTOR AND Y FACTOR   '$)
2	FORMAT(2I)
	CALL PLOTS (IBUF,5000,1)
	CALL PLOT (15.,14.75,-3)
	CX=0.0
	CY=0.0
     	ANG=5. 
	CALL PLOT(0,0,3)
	DO 20 J=1,240
C	DO 10 K=1,14
C	CALL PLOT (X(K),Y(K),INK(K))
C10	CONTINUE
CC	CALL CURVE(X(1),Y(1),14, 5,1)
CC	CALL CUPπe(X(1),Y(1),7,5,1)
  	CALL CURVE(X(8),Y(8),7,5,1)
CC	CALL CURVE(X(15),Y(15),9,5,1)
	CALL ROTATE (X,Y,14,CX,CY,ANG)
	CALL PLOT(0,0,3)
 20	CONTINUE
	CALL PLOT (0.0,-30.,-3)
	CALL PLOT(0.0,0.0,999)
	STOP
	END